/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / unused.elc.z / unused.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 68 61 |piled by| kwzh@ha|
|00000020| 6c 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |l.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 4d 6f 6e 20 | 41 70 72 20 31 37 20 31 | on Mon |Apr 17 1|
|00000040| 39 3a 35 34 3a 32 34 20 | 31 39 39 35 0a 3b 3b 3b |9:54:24 |1995.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 75 6e 75 73 65 | 64 2e 65 6c 0a 3b 3b 3b |sp/unuse|d.el.;;;|
|00000080| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 31 | emacs v|ersion 1|
|00000090| 39 2e 32 38 2e 39 30 2e | 32 36 2e 0a 3b 3b 3b 20 |9.28.90.|26..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))).   |
|00000190| 20 28 65 72 72 6f 72 20 | 22 60 2f 67 64 2f 67 6e | (error |"`/gd/gn|
|000001a0| 75 2f 65 6d 61 63 73 2f | 31 39 2e 30 2f 6c 69 73 |u/emacs/|19.0/lis|
|000001b0| 70 2f 75 6e 75 73 65 64 | 2e 65 6c 27 20 77 61 73 |p/unused|.el' was|
|000001c0| 20 63 6f 6d 70 69 6c 65 | 64 20 66 6f 72 20 45 6d | compile|d for Em|
|000001d0| 61 63 73 20 31 39 22 29 | 29 0a 0a 0a 23 40 34 32 |acs 19")|)...#@42|
|000001e0| 20 53 65 74 20 6d 61 72 | 6b 20 61 74 20 74 68 65 | Set mar|k at the|
|000001f0| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 74 68 | beginni|ng of th|
|00000200| 65 20 62 75 66 66 65 72 | 2e 1f 0a 28 64 65 66 61 |e buffer|...(defa|
|00000210| 6c 69 61 73 20 27 6d 61 | 72 6b 2d 62 65 67 69 6e |lias 'ma|rk-begin|
|00000220| 6e 69 6e 67 2d 6f 66 2d | 62 75 66 66 65 72 20 23 |ning-of-|buffer #|
|00000230| 5b 6e 69 6c 20 22 c0 65 | 21 87 22 20 5b 70 75 73 |[nil ".e|!." [pus|
|00000240| 68 2d 6d 61 72 6b 5d 20 | 32 20 28 23 24 20 2e 20 |h-mark] |2 (#$ . |
|00000250| 34 38 31 29 20 6e 69 6c | 5d 29 0a 23 40 33 36 20 |481) nil|]).#@36 |
|00000260| 53 65 74 20 6d 61 72 6b | 20 61 74 20 74 68 65 20 |Set mark| at the |
|00000270| 65 6e 64 20 6f 66 20 74 | 68 65 20 62 75 66 66 65 |end of t|he buffe|
|00000280| 72 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6d |r...(def|alias 'm|
|00000290| 61 72 6b 2d 65 6e 64 2d | 6f 66 2d 62 75 66 66 65 |ark-end-|of-buffe|
|000002a0| 72 20 23 5b 6e 69 6c 20 | 22 c0 64 21 87 22 20 5b |r #[nil |".d!." [|
|000002b0| 70 75 73 68 2d 6d 61 72 | 6b 5d 20 32 20 28 23 24 |push-mar|k] 2 (#$|
|000002c0| 20 2e 20 36 30 38 29 20 | 6e 69 6c 5d 29 0a 23 40 | . 608) |nil]).#@|
|000002d0| 36 34 20 55 70 70 65 72 | 63 61 73 69 66 79 20 41 |64 Upper|casify A|
|000002e0| 52 47 20 63 68 61 72 73 | 20 73 74 61 72 74 69 6e |RG chars| startin|
|000002f0| 67 20 66 72 6f 6d 20 70 | 6f 69 6e 74 2e 20 20 50 |g from p|oint.  P|
|00000300| 6f 69 6e 74 20 64 6f 65 | 73 6e 27 74 20 6d 6f 76 |oint doe|sn't mov|
|00000310| 65 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 75 70 |e..(defa|lias 'up|
|00000320| 63 61 73 65 2d 63 68 61 | 72 20 23 5b 28 61 72 67 |case-cha|r #[(arg|
|00000330| 29 20 22 8a c0 60 09 75 | 88 60 5c 22 29 87 22 20 |) "..`.u|.`\")." |
|00000340| 5b 75 70 63 61 73 65 2d | 72 65 67 69 6f 6e 20 61 |[upcase-|region a|
|00000350| 72 67 5d 20 33 20 28 23 | 24 20 2e 20 37 32 33 29 |rg] 3 (#|$ . 723)|
|00000360| 20 22 70 22 5d 29 0a 23 | 40 39 38 20 4d 6f 76 65 | "p"]).#|@98 Move|
|00000370| 20 66 6f 72 77 61 72 64 | 20 75 6e 74 69 6c 20 65 | forward| until e|
|00000380| 6e 63 6f 75 6e 74 65 72 | 69 6e 67 20 74 68 65 20 |ncounter|ing the |
|00000390| 62 65 67 69 6e 6e 69 6e | 67 20 6f 66 20 61 20 77 |beginnin|g of a w|
|000003a0| 6f 72 64 2e 0a 57 69 74 | 68 20 61 72 67 75 6d 65 |ord..Wit|h argume|
|000003b0| 6e 74 2c 20 64 6f 20 74 | 68 69 73 20 74 68 61 74 |nt, do t|his that|
|000003c0| 20 6d 61 6e 79 20 74 69 | 6d 65 73 2e 1f 0a 28 64 | many ti|mes...(d|
|000003d0| 65 66 61 6c 69 61 73 20 | 27 66 6f 72 77 61 72 64 |efalias |'forward|
|000003e0| 2d 74 6f 2d 77 6f 72 64 | 20 23 5b 28 61 72 67 29 |-to-word| #[(arg)|
|000003f0| 20 22 c0 09 c2 56 83 0b | 00 c3 82 5c 66 00 c4 c5 | "...V..|...\f...|
|00000400| c6 09 24 86 1f 00 09 c2 | 56 83 1d 00 64 82 1e 00 |..$.....|V...d...|
|00000410| 65 62 87 22 20 5b 72 65 | 2d 73 65 61 72 63 68 2d |eb." [re|-search-|
|00000420| 66 6f 72 77 61 72 64 20 | 61 72 67 20 30 20 22 5c |forward |arg 0 "\|
|00000430| 5c 57 5c 5c 62 22 20 22 | 5c 5c 62 5c 5c 57 22 20 |\W\\b" "|\\b\\W" |
|00000440| 6e 69 6c 20 74 5d 20 35 | 20 28 23 24 20 2e 20 38 |nil t] 5| (#$ . 8|
|00000450| 37 36 29 20 22 70 22 5d | 29 0a 23 40 39 33 20 4d |76) "p"]|).#@93 M|
|00000460| 6f 76 65 20 62 61 63 6b | 77 61 72 64 20 75 6e 74 |ove back|ward unt|
|00000470| 69 6c 20 65 6e 63 6f 75 | 6e 74 65 72 69 6e 67 20 |il encou|ntering |
|00000480| 74 68 65 20 65 6e 64 20 | 6f 66 20 61 20 77 6f 72 |the end |of a wor|
|00000490| 64 2e 0a 57 69 74 68 20 | 61 72 67 75 6d 65 6e 74 |d..With |argument|
|000004a0| 2c 20 64 6f 20 74 68 69 | 73 20 74 68 61 74 20 6d |, do thi|s that m|
|000004b0| 61 6e 79 20 74 69 6d 65 | 73 2e 1f 0a 28 64 65 66 |any time|s...(def|
|000004c0| 61 6c 69 61 73 20 27 62 | 61 63 6b 77 61 72 64 2d |alias 'b|ackward-|
|000004d0| 74 6f 2d 77 6f 72 64 20 | 23 5b 28 61 72 67 29 20 |to-word |#[(arg) |
|000004e0| 22 c0 09 5b 21 87 22 20 | 5b 66 6f 72 77 61 72 64 |"..[!." |[forward|
|000004f0| 2d 74 6f 2d 77 6f 72 64 | 20 61 72 67 5d 20 32 20 |-to-word| arg] 2 |
|00000500| 28 23 24 20 2e 20 31 31 | 31 39 29 20 22 70 22 5d |(#$ . 11|19) "p"]|
|00000510| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+